unit BSetDeptment;

interface

uses
  AData,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AModelBrowser, Menus, ActnList, frxClass, frxDesgn, ComCtrls,
  ToolWin, cxTL, dxSkinsCore,
  dxSkinsDefaultPainters, cxContainer, cxEdit, cxGroupBox, cxSplitter,
  cxControls, cxInplaceContainer, cxTLData, cxDBTL, DB, DBAccess, MyAccess,
  MemDS, cxGraphics, cxCustomData, cxStyles, cxTextEdit, cxDBEdit,
  cxMaskEdit, cxCalendar, StdCtrls;

type
  TBSetDeptmentForm = class(TAModelBrowserFrame)
    cxDBTreeList1: TcxDBTreeList;
    cxSplitter1: TcxSplitter;
    cxGroupBox1: TcxGroupBox;
    QDeptMent: TMyQuery;
    DDeptMent: TMyDataSource;
    cxDBTreeList1dept_no: TcxDBTreeListColumn;
    cxDBTreeList1dept_name: TcxDBTreeListColumn;
    cxDBTreeList1parent_name: TcxDBTreeListColumn;
    cxDBTreeList1create_name: TcxDBTreeListColumn;
    cxDBTreeList1create_date: TcxDBTreeListColumn;
    cxDBTreeList1upd_name: TcxDBTreeListColumn;
    cxDBTreeList1upd_date: TcxDBTreeListColumn;
    dept_no: TLabel;
    dept_name: TLabel;
    parent_name: TLabel;
    create_name: TLabel;
    create_date: TLabel;
    upd_name: TLabel;
    upd_date: TLabel;
    QDeptMentdept_no: TIntegerField;
    QDeptMentdept_name: TStringField;
    QDeptMentparent_name: TStringField;
    QDeptMentcreate_name: TStringField;
    QDeptMentcreate_date: TDateTimeField;
    QDeptMentupd_name: TStringField;
    QDeptMentupd_date: TDateTimeField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BSetDeptmentForm: TBSetDeptmentForm;

implementation

{$R *.dfm}


initialization
  RegisterClass(TBSetDeptmentForm);
finalization
  UnRegisterClass(TBSetDeptmentForm);

end.
